home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / COMM / DTR / HANGUP.PAS < prev   
Pascal/Delphi Source File  |  1992-07-04  |  658b  |  27 lines

  1. Uses DTRCTRL, CRT;
  2. Var
  3.    COMPort      : Byte;
  4.    Error        : Integer;
  5.  
  6. Begin
  7.  
  8.      Val (ParamStr (1), COMPort, Error);
  9.  
  10.      WriteLn ('HangUp utility (using DTR)');
  11.      WriteLn ('Les Logiciels de Marque inc.');
  12.      WriteLn;
  13.  
  14.      If (COMPort < 1) or (COMPOrt > 4) Then Begin 
  15.         WriteLn ('  * Usage:');
  16.         WriteLn ('      HANGUP [Port]');
  17.         Halt;
  18.         End;
  19.  
  20.      If DTRState (COMPort) Then Begin
  21.         DTRControl (COMPort, False);
  22.         Delay (1000);
  23.         DTRControl (COMPort, True);
  24.         WriteLn ('  * DTR dropped and raised!');
  25.         End else WriteLn ('  * DTR is already raised!');
  26.  
  27.      End.